0 REM ************** 1 REM ***--KISMET--*** **--CREATED BY--** 2 REM **--MARK HANSON--** ****************** 3 POKE53280,7:POKE53281,7:PRINT"[147]" 4 PRINT"KKIIISSSSMMMMEEEETTTTTTT" 5 PRINT"KKISMMMMET" 6 PRINT"KKKISMMMEEET" 7 PRINT"KKISSMMEEET" 8 PRINT"KKISMMET" 9 PRINT"KKIIISSSSMMEEEET":POKE54295,0:POKE54296,10:GOSUB8000 10 REM **--INITIALIZE--** 11 SC=0:POKE53280,5:POKE53281,6 12 PRINT"[147]":PRINTSPC(6)"HOW MANY PLAYERS (1-4)" 13 GETN$:IFN$="1"THENN=1:GOSUB7080:GOSUB40:GOTO25 14 IFN$="2"ORN$="3"ORN$="4"THENN=VAL(N$):GOSUB7080:GOSUB40:GOTO20 16 GOTO13 20 PRINT"[147]MAY I HAVE YOUR":PRINT"NAMES PLEASE" 21 FORA=1TON:PRINT"PLAYER"A:INPUTNM$(A):GOSUB7080:NEXTA:GOTO26 23 IFN$<>"2"THEN22 25 PRINT"[147]MAY I HAVE YOUR":INPUT"NAME PLEASE";NM$(1):GOSUB7080 26 PRINT"[147]DO YOU KNOW":PRINT"HOW TO PLAY?" 27 GETT$:IFT$="N"THENGOSUB9000:GOTO30 28 IFT$<>"Y"THEN27 29 GOSUB7080 30 PRINT"[147]O.K. ":PRINT"LET'S PLAY KISMET":N=1 31 FORT=1TO1500:NEXT:GOTO100 40 FORT=1TON:FORL=1TO6:BS$(T,L)=" [175][175]":NEXTL 41 FORL=1TO9:KS$(T,L)=" [175][175]":NEXTL:NEXTT:RETURN 100 REM **-ROLL DICE-** 101 X=1:RC=0 105 PRINT"[147]":RC=RC+1:GOSUB1000:GOSUB990 120 FORZ=1TO5 130 FORT=XTO5:DC(T)=INT(1+6*RND(1)):DK(T)=DC(T):NEXT 135 FORT=1TO5:DK$(T)=STR$(DK(T)):NEXT 148 T=1:GOSUB710:PRINT""SPC(21)RIGHT$(DK$(1),1):IFX<2THENGOSUB5000 149 T=2:GOSUB710:PRINT""SPC(24)RIGHT$(DK$(2),1):IFX<3THENGOSUB5000 150 T=3:GOSUB710:PRINT""SPC(27)RIGHT$(DK$(3),1):IFX<4THENGOSUB5000 151 T=4:GOSUB710:PRINT""SPC(30)RIGHT$(DK$(4),1):IFX<5THENGOSUB5000 152 T=5:GOSUB710:PRINT""SPC(33)RIGHT$(DK$(5),1)"[154]":GOSUB5000 159 NEXTZ:GOSUB990 190 IFRC=3THEN230 200 REM **--KEEP/CHANGE DICE--** 202 X=1:L=1:PRINT"KEEP DIE #1?" 203 GETT$:IFT$="Y"THENX=X+1:L=L+1:GOTO205 204 IFT$<>"N"THEN203 205 GOSUB7080:PRINT"KEEP DIE #2?" 206 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(2):L=L+1:GOTO208 207 IFT$<>"N"THEN206 208 GOSUB7080:PRINT"KEEP DIE #3?" 209 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(3):L=L+1:GOTO211 210 IFT$<>"N"THEN209 211 GOSUB7080:PRINT"KEEP DIE #4?" 212 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(4):L=L+1:GOTO214 213 IFT$<>"N"THEN212 214 GOSUB7080:PRINT"KEEP DIE #5?" 215 GETT$:IFT$="Y"THENX=X+1:DK(L)=DK(5):L=L+1:GOTO220 216 IFT$<>"N"THEN215 220 GOSUB7080:IFX<6ANDRC<3THEN105 230 REM **--WHERE--** 251 B=0:FORT=2TO5:IFDK(1)<>DK(T)THENB=1 252 NEXTT:IFB=0ANDVAL(KS$(N,9))>0THENGOSUB520 254 PRINT"[147]":GOSUB1000:FORT=1TO6:A(T)=0:NEXT 255 T=1:GOSUB710:PRINT""SPC(20)DK(1) 256 T=2:GOSUB710:PRINT""SPC(23)DK(2) 257 T=3:GOSUB710:PRINT""SPC(26)DK(3) 258 T=4:GOSUB710:PRINT""SPC(29)DK(4) 259 T=5:GOSUB710:PRINT""SPC(32)DK(5)"[154]" 260 GOSUB990 261 PRINT"WHERE" 265 INPUT"(1-15)[145][157]";L$:L=VAL(L$) 266 IFLEFT$(L$,1)="Q"THEN500 267 IFL<1ORL>15THENGOSUB7000:GOTO254 268 IFL>6THEN280 270 REM *-CHECK BASIC SECT-* 275 IFBS$(N,L)<>" [175][175]"THENPRINT"NOT THERE!":GOSUB7000:GOTO254 276 FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT 277 BS$(N,L)=STR$(A(L)):GOTO400 280 REM *-CHECK KISMET SECT-* 281 L=L-6:IFKS$(N,L)<>" [175][175]"THENPRINT"NOT THERE!":GOSUB7000:GOTO254 282 ONLGOSUB 285,300,310,320,330,340,350,360,365 283 GOTO 400 285 REM *-CHECK FOR 2 PAIR-* 286 A=1 287 B=0:FORT=1TO5:IFDK(T)=ATHENB=B+1 288 NEXTT:IFB<4THENA=A+1:IFA<7THEN287 289 IFA>6THEN291 290 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,1)=STR$(B):RETURN 291 A=0:FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT 292 IFA(1)>1ANDA(6)>6THENA=1 293 IFA(2)>2ANDA(5)>5THENA=1 294 IFA(3)>3ANDA(4)>4THENA=1 295 IFA=0THENKS$(N,1)="0":RETURN 296 A=0:FORT=1TO5:A=A+DK(T):NEXT:KS$(N,1)=STR$(A):RETURN 300 REM *-CHECK FOR 3 OF KIND-* 301 A=1 302 B=0:FORT=1TO5:IFDK(T)=ATHENB=B+1 303 NEXTT:IFB<3THENA=A+1:IFA<7THEN302 304 IFA>6THENKS$(N,2)="0":RETURN 305 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,2)=STR$(B):RETURN 310 REM *-CHECK FOR STRAIGHT-* 311 FORT=1TO5:B=DK(T):A(B)=B:NEXT 312 A=0:FORT=1TO6:A=A+A(T):NEXT 313 IFA=15ORA=20THENKS$(N,3)="30":RETURN 314 KS$(N,3)="0":RETURN 320 REM *-CHECK FOR FLUSH-* 321 FORT=1TO5:B=DK(T):A(B)=B:NEXT 322 B=0:FORT=1TO6:IFA(T)=TTHENB=B+1 323 NEXTT:IFB>2THENKS$(N,4)="0":RETURN 324 IFB=1THENKS$(N,4)="35":RETURN 325 IFA(1)+A(6)=7ORA(2)+A(5)=7ORA(3)+A(4)=7THENB=0 326 IFB=0THENKS$(N,4)="35":RETURN 327 KS$(N,4)="0":RETURN 330 REM *-CHECK FOR FULL HOUSE-* 331 FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT 332 B=0:FORT=1TO6:IFA(T)=0THENB=B+1 333 NEXTT:IFB<4THENKS$(N,5)="0":RETURN 334 IFB=5THEN337 335 B=0:FORT=1TO6:IFA(T)>TTHENB=B+1 336 NEXTT:IFB<2THENKS$(N,5)="0":RETURN 337 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,5)=STR$(B+15):RETURN 340 REM *-CHECK FOR FULL HOUSE SC-* 341 B=0:FORT=1TO5:IFDK(1)<>DK(T)THENB=1 342 NEXTT:IFB=0THENFORT=1TO5:B=B+DK(T):KS$(N,6)=STR$(B+20):RETURN 343 A=1:FORT=1TO5:B=DK(T):A(B)=A(B)+B:NEXT 344 IFA(1)+A(6)=15ORA(1)+A(6)=20THENA=0 345 IFA(2)+A(5)=16ORA(2)+A(5)=19THENA=0 346 IFA(3)+A(4)=17ORA(3)+A(4)=18THENA=0 347 IFA=1THENKS$(N,6)="0":RETURN 348 FORT=1TO5:A=A+DK(T):NEXT:KS$(N,6)=STR$(A+20):RETURN 350 REM *-CHECK FOR 4 OF KIND-* 351 A=1 352 B=0:FORT=1TO5:IFDK(T)=ATHENB=B+1 353 NEXTT:IFB<4THENA=A+1:IFA<7THEN352 354 IFA>6THENKS$(N,7)="0":RETURN 355 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,7)=STR$(B+25):RETURN 360 REM *-YARBOROUGH-* 361 B=0:FORT=1TO5:B=B+DK(T):NEXT:KS$(N,8)=STR$(B):RETURN 365 REM *-CHECK FOR KISMET-* 366 B=0:FORT=2TO5:IFDK(1)<>DK(T)THENB=1 367 NEXTT:IFB=0THENFORT=1TO5:B=B+DK(T):NEXT:KS$(N,9)=STR$(B+50):RETURN 368 KS$(N,9)="0":RETURN 400 REM **-BASIC/KISMET TOTALS-** 404 GOSUB7080:GOSUB406:IFRC<4THEN N=N+1:IFN>VAL(N$)THENN=1 405 GOTO100 406 SB(N)=0:FORT=1TO6:SB(N)=SB(N)+VAL(BS$(N,T)):NEXT 407 BB(N)=0:IFSB(N)>62THENBB(N)=35 408 IFSB(N)>70THENBB(N)=55 409 IFSB(N)>78THENBB(N)=75 410 BT(N)=SB(N)+BB(N) 415 REM *-KISMET TOTAL-* 416 KT(N)=0:FORT=1TO9:KT(N)=KT(N)+VAL(KS$(N,T)):NEXT 417 GT(N)=BT(N)+KT(N) 418 GOSUB1000:FORT=1TO5000:NEXT 419 IFN=VAL(N$)THENSC=SC+1:IFSC=15THEN2000 420 RETURN 500 REM *-QUIT ROUTINE-* 502 IFRIGHT$(N$,1)="1"THEN2000 504 A=VAL(N$):A=A-1:N$=STR$(A):IFN=(VAL(N$)+1)THENN=1:GOTO100 505 A=N:FORT=ATO4:NM$(T)=NM$(T+1) 506 FORL=1TO6:BS$(T,L)=BS$(T+1,L):NEXTL 507 FORL=1TO9:KS$(T,L)=KS$(T+1,L):NEXTL 508 NEXTT:GOSUB406:GOTO100 520 REM *-SECOND KISMET-* 521 FORT=1TO4:IFT=NTHENT=T+1 525 B=0:FORL=1TO6:IFB=0ANDBS$(T,L)=" [175][175]"THENBS$(T,L)="0":B=1 526 NEXTL:FORL=1TO9:IFB=0ANDKS$(T,L)=" [175][175]"THENKS$(T,L)="0":B=1 527 NEXTL:NEXTT:RC=4:RETURN 700 REM *-DICE COLOUR-* 710 IFDK(T)=1ORDK(T)=6THENPRINT"[144]":RETURN 711 IFDK(T)=2ORDK(T)=5THENPRINT"":RETURN 712 IFDK(T)=3ORDK(T)=4THENPRINT"":RETURN 990 REM *-DRAW DICE-* 991 PRINT""SPC(21)"1 2 3 4 5" 992 PRINTSPC(20)"[213][192][201][213][192][201][213][192][201][213][192][201][213][192][201]" 993 PRINTSPC(20)"[221][221][221][221][221][221][221][221][221][221]" 994 PRINTSPC(20)"[202][192][203][202][192][203][202][192][203][202][192][203][202][192][203]" 995 RETURN 1000 REM **-SCORE SHEET-** 1001 T=LEN(NM$(N)):L=19-(T/2):PRINT"[147]"SPC(L)NM$(N) 1010 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185]BASIC SECTION[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]" 1011 PRINT"(1)[154]ACES ="RIGHT$(BS$(N,1),2) 1012 PRINT""SPC(13)"(2)[154]DEUCES="RIGHT$(BS$(N,2),2) 1013 PRINT""SPC(27)"(3)[154]TREYS="RIGHT$(BS$(N,3),2) 1014 PRINT:PRINT"(4)[154]FOURS="RIGHT$(BS$(N,4),2) 1015 PRINT""SPC(13)"(5)[154]FIVES ="RIGHT$(BS$(N,5),2) 1016 PRINT""SPC(27)"(6)[154]SIXES="RIGHT$(BS$(N,6),2) 1020 PRINT"SUB-[157][157][157][157]TOTAL"SB(N) 1021 PRINT""SPC(12)"+BONUS"BB(N) 1022 PRINT""SPC(25)"=TOTAL"BT(N) 1025 PRINT"[185][185][185][185][185][185][185][185][185][185][185]KISMET SECTION[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]" 1026 PRINT"(7) [154]2 PAIR(SC)= "RIGHT$(KS$(N,1),2) 1027 PRINT""SPC(19)"(8) [154]3 OF KIND = "RIGHT$(KS$(N,2),2) 1028 PRINT"(9) [154]STRAIGHT = "RIGHT$(KS$(N,3),2) 1029 PRINT""SPC(19)"(10)[154]FLUSH(SC) = "RIGHT$(KS$(N,4),2) 1030 PRINT"(11)[154]FULL HOUSE= "RIGHT$(KS$(N,5),2) 1031 PRINT""SPC(19)"(12)[154]FULL HOUSE(SC)"RIGHT$(KS$(N,6),2) 1032 PRINT"(13)[154]4 OF KIND = "RIGHT$(KS$(N,7),2) 1033 PRINT""SPC(19)"(14)[154]YARBOROUGH = "RIGHT$(KS$(N,8),2) 1034 PRINT""SPC(13)"(15)[154]KISMET="RIGHT$(KS$(N,9),2) 1035 PRINT"************"SPC(15)"*************" 1036 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 1040 PRINT"[158]SUB-[157][157][157][157]TOTAL"KT(N) 1041 PRINT""SPC(15)"BASIC[157][157][157][157][157][157]+SECT."BT(N) 1042 PRINT""SPC(28)"GRAND" 1043 PRINT""SPC(27)"=TOTAL"GT(N) 1044 PRINT"****************************************" 1045 RETURN 1092 PRINT"[147]GOOD FOR YOU[157][157][157][157][157][157][157][157][157][157][157][157]" 1093 GOSUB8000 1996 CLR:GOTO2 2000 PRINT"[147]THE GAME IS OVER!!!" 2001 FORT=1TO2000:NEXT 2002 PRINT"[147]THE SCORES" 2003 FORT=1TO1500:NEXT 2004 PRINT"[147]FOR THE GAME ARE" 2006 FORT=1TO3000:NEXT 2007 POKE53280,15:POKE53281,6:PRINT"[147]" 2008 GT=GT(1):NM$=NM$(1):FORT=2TO4 2009 IFGT(T)>GTTHENGT=GT(T):NM$=NM$(T) 2010 NEXTT 2020 PRINT"[154]"SPC(9)"THE WINNING TOTAL IS":PRINTSPC(17)""GT 2021 FORT=1TOVAL(N$):PRINT""NM$(T)"="GT(T):NEXT 2022 GOSUB6070:FORT=1TO2000:NEXT:GOTO5080 5000 REM SOUND FOR DICE ROLL 5002 F=600:AT=0:DC=4:T=0 5010 FF=16*F:POKE54273,FF/265:POKE54272,(FF-32768)AND255 5020 POKE54278,0 5030 POKE54277,16*AT+DC 5040 POKE54276,17 5050 FORCO=1TOT 5060 NEXTCO 5070 POKE54276,0:RETURN 5080 REM *-ASK TO PLAY AGAIN-* 5081 PRINT"[147]";SPC(10)"ANYONE WANT TO PLAY?" 5082 GETT$:IFT$="Y"THEN1092 5083 IFT$<>"N"THEN5082 5084 PRINT"[147]";SPC(16)"WELL,[157][157][157][157][157][157]GOODBYE!" 5085 GOSUB6000 5086 SYS64759 6000 REM SOUND FOR RASPBERRY 6010 VV=54272:POKEVV+6,240 6015 POKEVV+1,4:POKEVV+5,0:POKEVV+4,33 6020 FORNN=1024TO512STEP-8 6025 POKEVV+1,NN/256:POKEVV,NNAND255 6030 NEXT NN 6035 POKEVV+4,0:RETURN 6040 REM SOUND FOR PIP 6045 VV=54272 6050 POKEVV+6,0:POKEVV+5,31 6055 POKEVV+1,180:POKEVV+4,33 6060 FORN=1TO100:NEXT 6065 POKEVV+4,0:RETURN 6070 REM SOUND FOR EXPLOSION 6075 VV=54272:POKEVV+6,0:POKEVV+5,12 6080 POKEVV+1,20:POKEVV+4,129 6085 FORNN=1TO2500:NEXTNN 6090 POKEVV+4,0:RETURN 7000 REM SOUND FOR BUZZ 7001 F=15:SU=5:AT=0:T=200:PS=33:DC=15 7010 FF=16*F:POKE54273,FF/60:POKE54272,(FF-32768)AND255 7020 POKE54278,0 7030 POKE54277,16*AT+DC 7040 POKE54276,PS 7050 FORCO=1TOT 7060 NEXTCO 7070 POKE54276,0:RETURN 7080 REM SOUND FOR BEEP 7090 F=310:SU=50:AT=0:T=100:PS=17:DC=15 7095 FF=16*F:POKE54273,FF/100:POKE54272,(FF-20)AND255:GOTO7020 8000 REM SOUND FOR BUGLE 8005 RESTORE 8010 VV=54272 8020 POKEVV+6,0:POKEVV+5,45 8030 POKEVV+3,99:QP=2500 8040 READWW:IFWW=0THENPOKE54276,0:RETURN 8050 RR=INT(WW/10):QQ=(WW-10*RR)*QP 8055 POKE54273,QQ/256:POKE54272,QQAND255 8060 POKE54276,0:POKE54276,65:FORNN=1TO70*(RR+1):NEXT 8070 GOTO8040 8080 DATA25,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,64,3,3,5,4,4,5,3,3,5,4,5,6 8090 DATA15,6,24,5,3,3,3,4,5,6,25,6,24,5,3,3,3,94,0 9000 REM **--HOW TO PLAY--** 9001 PRINT"[147]HOW TO PLAY[157][157][157][157][157][157][157][157][157][157][157][184][184][184][184][184][184][184][184][184][184][184][154]" 9002 PRINT"THE EQUIPMENT IS 5 TRI-COLORED DICE * 1" 9003 PRINT"AUTOMATIC SHAKER (THE COMPUTER) * 1-4" 9004 PRINT"SCORE SHEETS (THE SCREEN). 9011 [153]"THE OBJECT OF THE GAME IS TO ROLL ANY " 9012 [153]"OR ALL OF THE DICE ONE,TWO OR THREE " 9013 [153]"TIMES ATTEMPTING TO OBTAIN DICE COMBI- " 9014 [153]"NATIONS FITTING A SCORING CATEGORY. " 9015 [153]"THERE ARE 15 SCORING CATEGORIES AND ADD" 9016 [153]"BONUSES FOR A TOTAL SCORE.":[153][166]17)"CLRRULESCMDCMDCMDCMDCMDUSRUSRUSRUSRUSRCONT" 9017 [153]"EACH PLAYER IS ALLOWED 1,2 OR 3 ROLLS" 9018 [153]"OF ANY OR ALL OF THE DICE. SCORING" 9019 [153]"BOXES MAY BE FILLED IN ANY ORDER. ONCE" 9020 [153]"ENTERRED A SCORE CAN NOT BE CHANGED." 9021 [153]"AFTER THE FIRST OR SECOND ROLL OF THE" 9022 [153]"DICE, A PLAYER WILL BE ASKED IF HE/SHE" 9023 [153]"WANTS TO KEEP EACH DIE. AFTER THE THIRD" 9024 [153]"ROLL THE WORD 'CLRWHERECONT' WILL APPPEAR. NOW" 9056 [153]"LOOK AT THE SCORE SHEET." 9057 [153]"TO CONTINUE HIT SPACE BARCONT" 9058 [161]RP$:[139]RP$[179][177]" "[167]9058 9060 [153]"LOADFIRST,THE LETTERS 'SCCONT' STANDS FOR SAME " 9061 [153]"COLOR.AND THE NUMBERS PRECEEDING EACH" 9062 [153]"SCORING AREA IS WHAT YOU TYPE IN AFTER" 9063 [153]"THE 'CLRWHERECONT'. THE SCORING FOR THE BASIC" 9066 [153]"SECTION IS AS FOLLOWS:":[153]:[153]"BASIC SECT.CONT":[153] 9067 [153]"THIS SECTION SCORES POINTS FOR ONE'S" 9068 [153]"THRU SIX'S. CLREXAMPLE:" 9069 [153]"AFTER THE THIRD ROLL YOU MIGHT HAVE" 9070 [153]"4 4 4 STOP1 5":[153]"CLRSCORE 12 IN THE 4'S" 9071 [153]"CLROR SCORE 1 IN THE ACE'S":[153]"CLROR SCORE 5 IN THE 5'SCONT" 9072 [153]:[153]"PLAY IS SIMILAR FOR EACH AREA HERE" 9073 [153]"TO CONTINUE HIT SPACE BARCONT" 9074 [161]RP$:[139]RP$[179][177]" "[167]9074 9075 [153]"LOAD"[166]12)"KISMET SECT.CONT" 9076 [153]"THIS SECT. OFFERS VARYING VALUES FOR" 9077 [153]"DICE COMBINATIONS.":[153]"POINTS ARE AS FOLLOWS:":[153] 9078 [153]"2 PAIR(SC)CONT...ANY 2 PAIRS OF THE SAME " 9080 [153]" COLOR. SCORE TOTAL OF ALL 5 DICE. " 9081 [153]"3 OF A KINDCONT...AT LEAST 3 OF A LIKE " 9082 [153]" NUMBER. SCORE TOTAL OF ALL 5 DICE. " 9083 [153]"STRAIGHTCONT...1-2-3-4-5 OR 2-3-4-5-6. " 9084 [153]" THE COMPUTER SCORES 30 PTS. AUTOMATIC." 9085 [153]"FLUSHCONT...FIVE DICE OF THE SAME COLOR. " 9086 [153]" THE COMPUTER SCORES 35 PTS. AUTOMATIC." 9087 [153]"FULL HOUSECONT...3 OF ONE NUMBER AND A " 9088 [153]" PAIR. SCORE TOTAL OF ALL 5 DICE AND " 9089 [153]" THE COMPUTER ADDS 15 PTS. AUTOMATIC. " 9090 [153]"FULL HOUSE(SC)CONT...3 OF ONE NUMBER AND A " 9091 [153]" PAIR OF THE SAME COLOR. SCORE TOTAL OF" 9092 [153]" ALL DICE AND THE COMPUTER ADDS 20 PTS." 9093 [153]" AUTOMATIC." 9094 [153]"TO CONTINUE HIT SPACE BARCONT" 9095 [161]RP$:[139]RP$[179][177]" "[167]9095 9096 [153]"LOADKISMET SECT. (CONT)" 9098 [153]"4 OF A KINDCONT...FOUR OF A LIKE NUMBER. " 9099 [153]" SCORE TOTAL OF ALL 5 DICE AND THE " 9100 [153]" COMPUTER ADDS 25 PTS. AUTOMATIC. " 9101 [153]"YARBOROUGHCONT...MEANS CHANCE. IF AFTER 3" 9102 [153]" ROLLS YOU HAVE NO SCORING COMBINATIONS" 9103 [153]" YOU MAY USE THIS. SCORE TOTAL OF ALL " 9104 [153]" FIVE DICE. 9105 PRINT"KISMET[154]...FIVE OF A LIKE NUMBER. SCORE" 9106 PRINT" TOTAL OF ALL DICE AND THE COMPUTER " 9107 PRINT" ADDS 50 PTS. AUTOMATIC." 9108 PRINT"AFTER THE '[156]WHERE[154]' APPEARS,YOU MUST TYPE" 9109 PRINT"THE NUMBER THAT PRECEEDS EACH AREA." 9110 PRINT"THEN '[156]RETURN[154]'. IF YOU CAN'T MAKE A" 9111 PRINT"SCORING AREA, THEN TYPE THE NUMBER OF" 9112 PRINT"AN AREA AND A '0' WILL BE PLACED THERE." 9113 PRINT"TO CONTINUE HIT SPACE BAR[154]" 9114 GETRP$:IFRP$<>" "THEN9114 9115 PRINT"[147]"SPC(12)"SCORING OPTIONS":PRINTSPC(12)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]" 9116 PRINT"[156]EXAMPLE: SAY YOU ROLL 4 4 4 4 5" 9117 PRINT"[156]POSSIBLE SCORING OPTIONS ARE...":PRINT"A SCORE OF 16 IN THE 4'S" 9118 PRINT"[156]A SCORE OF 5 IN THE 5'S":PRINT"[156]A SCORE OF 19 IN THE 2 PAIRS(SC)" 9119 PRINT"[156]A SCORE OF 19 IN THE 3 OF A KIND" 9120 PRINT"[156]A SCORE 44 IN THE 4 OF A KIND" 9121 PRINT"[156]OR A SCORE OF 19 IN THE YARBOROUGH[154]" 9122 PRINT"AT THE END OF EACH PLAYERS TURN HIS/HER" 9123 PRINT"SCORE SHEET WILL APPEAR FOR A FEW" 9124 PRINT"SECONDS. THEN, IT WILL BE THE NEXT " 9125 PRINT"PLAYERS TURN. PLAY WILL CONTINUE ON" 9126 PRINT"THE SAME, UNLESS, A PLAYER ROLLS A" 9127 PRINT"SECOND KISMET OR QUITS. BONUSSES ARE" 9128 PRINT"ADDED ON AUTOMATICALLY. 9133 [153]"CLRTHE BONUS POINTS ARE AS FOLLOWES:" 9134 [153]"62 OR LESS ADD 0 BONUS PTS.":[153]"63 - 70 ADD 35 BONUS PTS. 9135 PRINT"71 - 77 ADD 55 BONUS PTS.":PRINT"78 OR MORE ADD 75 BONUS PTS.[154]" 9138 PRINT"TO CONTINUE HIT SPACE BAR[154]" 9139 GETRP$:IFRP$<>" "THEN9139 9140 PRINT"[147]"SPC(13)"SECOND KISMET":PRINTSPC(13)"[184][184][184][184][184][184][184][184][184][184][184][184][184][154]" 9141 PRINT"IF A PLAYER ROLLS A SECOND KISMET AND" 9142 PRINT"FINDS A SCORE IN THE KISMET BOX, THEN" 9143 PRINT"ANY APPROPRIATE SCORING OPTION MAY BE" 9144 PRINT"USED. ALL OTHER PLAYERS WILL BE GIVEN A" 9145 PRINT"'0' IN THE VACANT BOX NEAREST THE TOP" 9146 PRINT"AND LOSE ONE TURN. THE PLAYER ROLLING" 9147 PRINT"THE SECOND KISMET ROLLS AGAIN. THE SAME" 9148 PRINT"PROCEDURE APPLIES FOR ANY ADDITIONAL" 9149 PRINT"KISMETS. 9150 [153]"TO CONTINUE HIT SPACE BARCONT" 9151 [161]RP$:[139]RP$[179][177]" "[167]9151 9152 [153]"LOAD"[166]10)"QUITTING THE GAME":[153][166]10)"USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRCONT" 9153 [153]"IF A PLAYER DECIDES TO QUIT IN A GAME," 9154 [153]"HE MAY DO SO WHEN ASKED 'CLRWHERECONT' BY" 9155 [153]"TYPING 'CLRQCONT'. IN A ONE PLAYER GAME- THE" 9156 [153]"GAME ENDS IMMEDIATELY." 9157 [153]"FOR A 2 TO 4 PLAYER GAME-THAT PLAYERS" 9158 [153]"SCORE SHEET IS ERASED AND THE SCORE" 9159 [153]"SHEET FOR THE NEXT PLAYER WILL APPEAR" 9160 [153]"FOR A FEW SECONDS. GAME PLAY WILL" 9161 [153]"CONTINUE ON FROM THERE. 9162 PRINT"TO CONTINUE HIT SPACE BAR[154]" 9163 GETA$:IFA$<>" "THEN9163 9165 PRINT"[147]"SPC(10)"[156]END OF THE GAME[154]":PRINTSPC(10)"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][154]" 9166 PRINT"AFTER THE LAST PLAYER HAS FILLED ALL" 9167 PRINT"FIFTEEN OF SCORING OPTIONS, THE GAME" 9168 PRINT"WILL END AND SHOW ALL PLAYERS FINAL" 9169 PRINT"SCORES. THE WINNING SCORE WILL BE" 9170 PRINT"DISPLAYED AT THE TOP OF THE SCREEN." 9190 PRINT"THAT'S ALL YOU NEED TO KNOW!" 9191 PRINTSPC(12)"SO, HAVE FUN!!" 9195 PRINT"TO CONTINUE HIT SPACE BAR[154]" 9196 GETRP$:IFRP$=" "THENRETURN 9197 GOTO9196